home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / index_of.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  466 b   |  28 lines
  1.  
  2. **
  3. ** index_of (c:CHARACTER; i:INTEGER):INTEGER
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. index_of
  9.         move.l  #0,d0
  10.         move.w  ($6,sp),d1
  11.         move.b  ($B,sp),d2
  12.         move.l  ($C,a1),a2
  13.         sub.l   #1,d1
  14.         add.l   d1,a2
  15.         move.l  ($8,a1),d3
  16.         beq.s   .end
  17.         sub.l   #1,d3
  18.  
  19. .loop   
  20.         add.l   #1,d1
  21.         cmp.b   (a2)+,d2
  22.         dbeq    d3,.loop
  23.         bne.s   .end
  24.         move.l  d1,d0
  25.  
  26. .end    rtd     #8
  27.  
  28.